Adventures with Oslo: Tools & Gadgets/Adventures with Oslo - Tools and Gadgets.ISO/mac/Ad/Mod04/Shop/jigsaw.Dir/00041.ls

Text File | 1994-09-23 | 839 b | 31 lines

on startMovie
  set HC to the number of cast "handCursor"
  cursor([HC, HC + 1])
end

on mouseUp
  if the clickOn <> 0 then
    set horiz to the locH of sprite the clickOn
    set vert to the locV of sprite the clickOn
    set snapH to integer(word the clickOn - 1 of field "hLocs")
    set snapV to integer(word the clickOn - 1 of field "vLocs")
    if (abs(horiz - snapH) < 10) and (abs(vert - snapV) < 10) then
      set the locH of sprite the clickOn to snapH
      set the locV of sprite the clickOn to snapV
      checkLocs()
    end if
  end if
end

on checkLocs
  set allInPlace to 1
  repeat with i = 2 to 21
    if (the locH of sprite i <> word i - 1 of field "hlocs") or (the locV of sprite i <> word i - 1 of field "vlocs") then
      set allInPlace to 0
    end if
  end repeat
  if allInPlace then
    go("end")
  end if
end